home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle: Internet utan modem / Internet CD.iso / web / computer / wwweps~1.com / adam / galactic.dcr / 00178.ls < prev    next >
Encoding:
Text File  |  1997-03-06  |  806 b   |  28 lines
  1. on final_level
  2.   global level, max_littleships, max_littlebullets, little_ships_bullets, boss_bullets, bulletlist, astroidlist, lil_list, lil_bulletlist, boss_bulletlist, max_bullets
  3.   set max_littleships to 3
  4.   set max_littlebullets to 8
  5.   set little_ships_bullets to 4
  6.   set boss_bullets to 5
  7.   set lil_bulletlist to []
  8.   set boss_bulletlist to []
  9.   set mright to 0
  10.   set bulletlist to []
  11.   set astroidlist to []
  12.   set lil_list to []
  13.   repeat with t = 1 to 3
  14.     setAt(lil_list, t, 0)
  15.   end repeat
  16.   repeat with t = 1 to boss_bullets
  17.     setAt(boss_bulletlist, t, 0)
  18.   end repeat
  19.   repeat with t = 1 to max_littlebullets
  20.     setAt(lil_bulletlist, t, 0)
  21.   end repeat
  22.   repeat with t = 1 to max_bullets
  23.     set the visible of sprite (t + 4) to 0
  24.     setAt(bulletlist, t, 0)
  25.   end repeat
  26.   bosscreate()
  27. end
  28.